home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / vlparse.src < prev    next >
Text File  |  1990-10-17  |  298b  |  17 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ by Kevin Jessup
  3. @ used by DSORT; see DSORT.DOC.
  4. \<< { } \-> l t d n
  5.   \<<
  6.     IF l SIZE DUP
  7.     THEN 1 SWAP
  8.       FOR i 'l' i GET
  9.         IF VTYPE t == d XOR
  10.         THEN n 'l' i GET 1 \->LIST + 'n' STO
  11.         END
  12.       NEXT
  13.     ELSE DROP
  14.     END n
  15.   \>>
  16. \>>
  17.